RowBox[{RowBox[{RowBox[{p, =, RowBox[{RowBox[{8.314,  , RowBox[{114, /, RowBox[{(, RowBox[{v,  ... RowBox[{{, RowBox[{RowBox[{Thickness, [, 0.0035, ]}], ,, RGBColor[0, 1, 0]}], }}]}], }}]}]}], ]}]

RowBox[{RowBox[{947.796, /, RowBox[{(, RowBox[{RowBox[{-, 0.0000364}], +, v}], )}]}], -, RowBox[{0.1358, /, v^2}]}]

[Graphics:HTMLFiles/Van der vals Equation_3.gif]

⁃Graphics⁃


Created by Mathematica  (October 24, 2006)